home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / internet / yam_i_dodatki / pgpwithyam / signmail.rexx < prev    next >
OS/2 REXX Batch file  |  1997-06-18  |  625b  |  33 lines
  1. /* Sign a mail with Phil's PGP for YAM */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. pgpcommand = '-s'
  6. pgppath    = 'Work:pgp/pgp'
  7.  
  8. CALL CLOSE 'STDOUT'
  9. CALL CLOSE 'STDIN'
  10. CALL OPEN 'STDIN','CON:0/14/1000/200/YAM-REXX/CLOSE'
  11. CALL PRAGMA '*','STDIN'
  12. CALL OPEN 'STDOUT','*'
  13.  
  14. IF ~SHOW('Ports','YAM') THEN DO
  15.   ADDRESS 'COMMAND'
  16.   'Run YAM:YAM NOCHECK HIDE'
  17.   'SYS:RexxC/WaitForPort YAM'
  18. END
  19. IF SHOW('Ports','YAM') THEN DO
  20.   ADDRESS 'YAM'
  21.   GETMAILINFO FILE
  22.   mailfile = RESULT
  23.  
  24.   ADDRESS 'COMMAND'
  25.   'YAM:Rexx/splitmail' mailfile
  26.   pgppath pgpcommand 'ram:body'
  27.   'join ram:head ram:body.asc to' mailfile
  28.   'delete ram:head ram:body ram:body.asc'
  29.  
  30. END
  31.  
  32.  
  33.